object fRecebimentosDia: TfRecebimentosDia
  Left = 0
  Top = 0
  Caption = 'Relat'#243'rio de Recebimentos do Dia'
  ClientHeight = 574
  ClientWidth = 710
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    710
    574)
  PixelsPerInch = 96
  TextHeight = 13
  object lbl37: TLabel
    Left = 0
    Top = 0
    Width = 710
    Height = 32
    Align = alTop
    Alignment = taCenter
    Caption = 'Recebimentos do dia'
    Color = 16776176
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = 'Calisto MT'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = False
    ExplicitWidth = 261
  end
  object lbl_Data: TLabel
    Left = 8
    Top = 45
    Width = 114
    Height = 13
    Caption = 'Data dos recebimentos:'
  end
  object BitBtn1: TBitBtn
    Left = 116
    Top = 511
    Width = 107
    Height = 55
    Anchors = [akLeft, akBottom]
    Caption = '&Imprimir'
    DoubleBuffered = True
    ParentDoubleBuffered = False
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 3
    Top = 511
    Width = 107
    Height = 55
    Anchors = [akLeft, akBottom]
    Caption = 'Visualizar Impress'#227'o'
    DoubleBuffered = True
    ParentDoubleBuffered = False
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object cxgrdRecebimentos: TcxGrid
    AlignWithMargins = True
    Left = 0
    Top = 40
    Width = 702
    Height = 465
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object gdRecebimentos: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dmreport.dsRecebimentosDia
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          FieldName = 'Valor (R$)'
          Column = cxgrdbclmnRecebimentosValorParcelaR
        end
        item
          Kind = skSum
          FieldName = 'Valor Parcela (R$)'
          Column = cxgrdbclmnRecebimentosValorR
        end
        item
          Kind = skCount
          FieldName = 'C'#243'digo Contrato'
          Column = cxgrdbclmnRecebimentosCdigoContrato
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsView.Footer = True
      Styles.StyleSheet = DataModule1.cxStyleSheetTBVWGridTableViewStyleSheetDevExpress
      object cxgrdbclmnRecebimentosCdigoContrato: TcxGridDBColumn
        DataBinding.FieldName = 'C'#243'digo Contrato'
        Width = 100
      end
      object cxgrdbclmnRecebimentosCdigoParcelaContrato: TcxGridDBColumn
        DataBinding.FieldName = 'C'#243'digo Parcela Contrato'
        Width = 140
      end
      object cxgrdbclmnRecebimentosNome: TcxGridDBColumn
        DataBinding.FieldName = 'Nome'
        Width = 55
      end
      object cxgrdbclmnRecebimentosValorR: TcxGridDBColumn
        DataBinding.FieldName = 'Valor (R$)'
        Width = 97
      end
      object cxgrdbclmnRecebimentosValorParcelaR: TcxGridDBColumn
        DataBinding.FieldName = 'Valor Parcela (R$)'
        Width = 119
      end
      object cxgrdbclmnRecebimentosDataVencimento: TcxGridDBColumn
        DataBinding.FieldName = 'Data Vencimento'
        Width = 106
      end
      object cxgrdbclmnRecebimentosUsuario: TcxGridDBColumn
        DataBinding.FieldName = 'Usu'#225'rio'
      end
    end
    object cxgrdlvlRecebimentos: TcxGridLevel
      GridView = gdRecebimentos
    end
  end
  object ZQueryRecebimentos: TZQuery
    Connection = DataModule1.Connection
    Active = True
    SQL.Strings = (
      'Select ct.cod_contrato AS "C'#243'digo Contrato",'
      '       rc.cod_parcelacontrato as "C'#243'digo Parcela Contrato",'
      '       rc.nomecliente as "Nome",'
      '       rc.valor as "Valor (R$)",'
      '       pc.valor_parcela as "Valor Parcela (R$)",'
      '       pc.data_vencimento as "Data Vencimento",'
      '       u.login_usuario as "Usu'#225'rio"'
      'from recebimentos rc'
      '     LEFT JOIN parcelascontrato pc on pc.cod_parcelacontrato ='
      '      rc.cod_parcelacontrato'
      '     LEFT JOIN contratos ct on ct.cod_contrato = pc.cod_contrato'
      '     LEFT Join usuario u on u.cod_usuario = rc.cod_usuario'
      'where "data" = CURRENT_DATE')
    Params = <>
    Left = 568
    Top = 200
  end
  object dsRecebimentos: TDataSource
    DataSet = ZQueryRecebimentos
    Left = 576
    Top = 280
  end
  object dxEngController: TdxPSEngineController
    PreviewDialogStyle = 'Ribbon'
    Left = 160
    Top = 328
  end
  object dxPrinter1: TdxComponentPrinter
    CurrentLink = dxgrdrprtlnkPrinter1Link1
    PrintTitle = 'ControlPlan 2 - Recebimentos Do Dia'
    Version = 0
    Left = 88
    Top = 320
    object dxgrdrprtlnkPrinter1Link1: TdxGridReportLink
      Component = cxgrdRecebimentos
      PDFExportOptions.Creator = 'ControlPlan'
      PDFExportOptions.IsCreatorAssigned = True
      PrinterPage.DMPaper = 9
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.Orientation = poLandscape
      PrinterPage.PageSize.X = 210000
      PrinterPage.PageSize.Y = 297000
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportDocument.Caption = 'Previs'#227'o de Recebimentos'
      ReportDocument.Creator = 'ControlPlan'
      ReportFootnotes.Text = 'Total Di'#225'rio = '
      ReportTitle.AdjustOnReportScale = True
      ReportTitle.Text = 'ControlPlan 2 -Recebimentos do dia'
      OptionsCards.AutoWidth = True
      OptionsFormatting.UseNativeStyles = True
      OptionsSize.AutoWidth = True
      Styles.ContentEven = cxStyle1
      Styles.ContentOdd = cxStyle2
      BuiltInReportLink = True
    end
  end
  object cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
    object cxStyle1: TcxStyle
      AssignedValues = [svColor]
      Color = 16762566
    end
  end
  object cxStyleRepository2: TcxStyleRepository
    PixelsPerInch = 96
    object cxStyle2: TcxStyle
    end
  end
  object cxgrdpmn1: TcxGridPopupMenu
    Grid = cxgrdRecebimentos
    PopupMenus = <>
    Left = 440
    Top = 264
  end
end
